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Problem 

There is a potential problem that could arise in Accounts Payable if a 
person selects invoices to be printed by discount date. 


Solution 

The problem is corrected by following the steps listed below. 

1. Backup the diskette(s) and make the changes on the Backup copy of the 
program. 

2. In BASIC load the program by typing IjOAD"APS''. 

3. Make the following corrections: 

CHANGES (Retype the line or refer to the Edit section of the owners manual) 
VERSION 3.0 

Old Line: 1(J9 D-0:CF=0:D1»VAL(MID$(IN$, 1,2)) :D2=VAL(MID$(IN$,4,2)) : 

D3=VAL(MID$(IN$, 7,2) ) :DN$»IN$: IN$=">8><><»<><>" 

New Line: 109 D=0:CF=0:D1»VAL(MID$(IN$,1,2)):D2=VAL(MID$(IN$,4,2)): 

D3=VAL(MID$(IN$,7,2)): IFIN$=”00/00/00"THENRETURNELSE 
IN$=">8><><»<><>" 

Old Line: 303 GOSUB123:PRINT@531,"DISCOUNT DATE: ";:FL=8:GOSUB3: 

IFCF<>0THEN277ELSEIFIN$=""THENDD=0ELSEGOSUB109:IFCF=2THEN303ELSEDD=‘D: 

DD$=IN$ 

New Line: 303 GOSUB123:PRINT@531/'DISCOUNT DATE: :FL=8:GOSUB3: IFCFO0THEN277 

ELSEIFIN$=""THENDD=1ELSEGOSUB109:IFCF=2THEN303ELSEDD=D 
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Old Line: 3(15 PRINT@6(|fll,"DUE DATE: :FL-8:GOSUB3:IFCFO0THEN277ELSE 

IFIN$«""THENDU-0ELSEGOSUB109:IFCF-2THEN305ELSEDD-D:DU$-IN$ 

New Line: 305 PR1NT@600,"DUE DATE: :FL-8:G0SUB3:1FCFO0THEN277 

ELSEIFIN$«""THENDU-1ELSE60SUB109:IFCF-2THEN305ELSEDU-D 

Old Line: 307 IFDD-0ANDDO-0ANDON$<>"00/00/00"THEN303ELSEFORK«lTOlN-l: 
IFI(K)-0THEN311ELSEGOSUB263:GET1 ,KR: IFDUO0ANDDOO0THEN 
IFABSC CVI (13$)) <DUANDABS( CVI (14$ ) ) <-DDAND AB S ( CVI (1R$ ) ) <>0 
THENGOSUB 313ELSE30 9 

New Line: 307 FORK>1TO1N-1:IFI(K)-0THEN311ELSEGOSUB263:GET1,KR: 

I3-ABS(CVI(13$)):I4-ABS(CVI(14$)) 

Old Line: 309 IF(DO-0ANDABS(CVI(I3$))<>DUANDDDN$<>"00/00/00") 

OR(DD<>0ANDOU-0 ANDABS(CVI(14$))<-DDANDABS(CVI(14$))<>0)THENGOSUB313 
New Line: 309 IF(Da-lOR(l3<«DOAND(l3>0ORDU-0)})AND(OD-lOR(I4<>DD 
AND(I4>0ORDD-0)))THENGOSUB313 

DELETIONS (Type the Line Nunber followed by <ENTER>) 

308 

110 


VERSIONS PRIOR TO 3.0 

Old Line: 400 D«0:CF«0:D1>VAL(MID$(IN$,1,2)):D2»VAL(MID$(IN$,4,2)): 

D3-VAL( MID$ (IN$, 7,2) ) : IN$-"<8<><»<><>" 

New Line: 400 D-0:CF-0:Dl-VAL(MID$(IN$,l,2)):D2»VAL(MID$(IN$,4,2)): 

D3»VAL(MID$(IN$,7,2)): IFIN$-"00/00/00"THENRETURNELSE 
IN$-">8><><»<><>" 

Old Line: 1280 GOSUB440:PRINT@531,"DISCOUNT DATE: ";:FL-8:GOSUB10: 

IFCF<>0THEN1200ELSEIFIN$«""THENDO>0ELSEGOSUB400:IFCF-2THEN1280ELSEDO-D:0 
D$-IN$ 

New Line: 1280 GOSUB440:PRINT@531/'DISCOUNT DATE: ";:FL-8:GOSDB10: 

IFCF<>0THEN1200ELSEIFIN$«""THENDD-1ELSEGOSUB400:IFCF-2THEN1280ELSEDD-D 

Old Line: 1285 PRINT@600,"DDE DATE: ";:FL-8:GOSUB10:IFCF<>0THEN1200 
ELSEIFIN$-""THENDU-0ELSEGOSUB400:IFCF-2THEN1285ELSED0-D:DD$«IN$ 

New Line: 1285 PRINT@600,"DUE DATE: ";:FL-8;GOSUB10:IFCFO0THEN1200 
ELSEIFIN$«""THENDU-1ELSEGOSDB400:IFCF»2THEN1285ELSEDU»P 

Old Line: 1290 IFDD-0ANDDO-0THEN1280ELSEFORK-1TOIN-1:IFI(K)-0THEN1300ELSE 
GOSUB1040:GETl,KR;irDU<>0ANDDD<>0THENIFABS(CVI(13$))<»DUANDCVI(14$)<-DD 
THENGOSUB1310 

New Line: 1290 FORR-lTOIN-1:IFI(K)-0TH£N1300ELSEGOSUB1040:GETl,KR: 

I3-ABS(CVI(13$)):I4-ABS(CVI(14$)) 










CUSTOMER SERVICE BULLETIN 


Subject 


Account's Receivable Bulletin # 1554-3 


Page 


Of 










